MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.08 Aug 86.sit / 02.08 Aug 86 / basic / SAMPLE PROGRAMS / ZBASIC / Z DEMO.src < prev
MacBinary | 1986-07-05 | 1.9 KB | [TEXT/EDIT]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sat Jul 5 12:03:36 1986, modified Sat Jul 5 12:03:36 1986, creator Macintosh Edit, type ASCII, 1345 bytes "Z DEMO.src" , at 0x5c1 348 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 5a 20 44 45 4d 4f | 2e 73 72 63 00 00 00 00 |..Z DEMO|.src....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 05 41 00 | 00 01 5c 9b 32 f5 d8 9b |......A.|..\.2...|
|00000060| 32 f5 d8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |2.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 cc e5 00 00 |........|........|
|00000080| 27 20 4d 65 6e 75 2f 57 | 69 6e 64 6f 77 20 44 65 |' Menu/W|indow De|
|00000090| 6d 6f 0d 27 20 5a 42 41 | 53 49 43 20 76 65 72 73 |mo.' ZBA|SIC vers|
|000000a0| 69 6f 6e 0d 27 20 62 79 | 20 44 61 76 65 20 4b 65 |ion.' by| Dave Ke|
|000000b0| 6c 6c 79 0d 27 20 a9 31 | 39 38 36 20 4d 61 63 54 |lly.' .1|986 MacT|
|000000c0| 75 74 6f 72 0d 27 20 5a | 62 61 73 69 63 20 63 6f |utor.' Z|basic co|
|000000d0| 6e 66 69 67 75 72 61 74 | 69 6f 6e 2d 20 64 62 6c |nfigurat|ion- dbl|
|000000e0| 2c 20 73 67 6c 2c 20 66 | 6c 6f 61 74 20 3d 20 31 |, sgl, f|loat = 1|
|000000f0| 36 2c 31 34 2c 31 32 3b | 64 65 66 61 75 6c 74 3d |6,14,12;|default=|
|00000100| 49 3b 4c 6f 63 61 74 65 | 20 59 2c 58 0d 0d 43 4f |I;Locate| Y,X..CO|
|00000110| 4f 52 44 49 4e 41 54 45 | 20 57 49 4e 44 4f 57 3a |ORDINATE| WINDOW:|
|00000120| 27 20 75 73 65 20 74 68 | 69 73 20 74 6f 20 73 65 |' use th|is to se|
|00000130| 74 20 74 6f 20 4d 61 63 | 69 6e 74 6f 73 68 20 77 |t to Mac|intosh w|
|00000140| 69 6e 64 6f 77 20 63 6f | 6f 72 64 69 6e 61 74 65 |indow co|ordinate|
|00000150| 73 0d 0d 27 20 43 6c 65 | 61 72 20 6f 6c 64 20 6d |s..' Cle|ar old m|
|00000160| 65 6e 75 73 20 26 20 73 | 65 74 20 75 70 20 6e 65 |enus & s|et up ne|
|00000170| 77 20 6d 65 6e 75 73 0d | 4d 45 4e 55 20 31 2c 30 |w menus.|MENU 1,0|
|00000180| 2c 31 2c 22 46 69 6c 65 | 22 0d 4d 45 4e 55 20 31 |,1,"File|".MENU 1|
|00000190| 2c 31 2c 31 2c 22 51 75 | 69 74 22 0d 4d 45 4e 55 |,1,1,"Qu|it".MENU|
|000001a0| 20 32 2c 30 2c 31 2c 22 | 45 64 69 74 22 0d 4d 45 | 2,0,1,"|Edit".ME|
|000001b0| 4e 55 20 32 2c 31 2c 31 | 2c 22 2f 58 43 75 74 22 |NU 2,1,1|,"/XCut"|
|000001c0| 0d 4d 45 4e 55 20 32 2c | 32 2c 31 2c 22 2f 43 43 |.MENU 2,|2,1,"/CC|
|000001d0| 6f 70 79 22 0d 4d 45 4e | 55 20 32 2c 33 2c 31 2c |opy".MEN|U 2,3,1,|
|000001e0| 22 2f 56 50 61 73 74 65 | 22 0d 4d 45 4e 55 20 32 |"/VPaste|".MENU 2|
|000001f0| 2c 34 2c 31 2c 22 43 6c | 65 61 72 22 0d 4d 45 4e |,4,1,"Cl|ear".MEN|
|00000200| 55 20 33 2c 30 2c 31 2c | 22 53 61 6d 70 6c 65 20 |U 3,0,1,|"Sample |
|00000210| 4d 65 6e 75 22 0d 4d 45 | 4e 55 20 33 2c 31 2c 31 |Menu".ME|NU 3,1,1|
|00000220| 2c 22 49 74 65 6d 20 31 | 22 0d 4d 45 4e 55 20 33 |,"Item 1|".MENU 3|
|00000230| 2c 32 2c 31 2c 22 49 74 | 65 6d 20 32 22 0d 4d 45 |,2,1,"It|em 2".ME|
|00000240| 4e 55 20 33 2c 33 2c 31 | 2c 22 49 74 65 6d 20 33 |NU 3,3,1|,"Item 3|
|00000250| 22 0d 4f 4e 20 44 49 41 | 4c 4f 47 20 47 4f 53 55 |".ON DIA|LOG GOSU|
|00000260| 42 20 22 48 61 6e 64 6c | 65 41 63 74 22 3a 44 49 |B "Handl|eAct":DI|
|00000270| 41 4c 4f 47 20 4f 4e 0d | 0d 22 73 74 61 72 74 22 |ALOG ON.|."start"|
|00000280| 3a 0d 27 20 6f 70 65 6e | 20 73 61 6d 70 6c 65 20 |:.' open| sample |
|00000290| 77 69 6e 64 6f 77 0d 57 | 49 4e 44 4f 57 20 31 2c |window.W|INDOW 1,|
|000002a0| 22 22 2c 28 31 30 30 2c | 31 30 30 29 2d 28 34 30 |"",(100,|100)-(40|
|000002b0| 30 2c 32 32 35 29 2c 32 | 0d 47 4f 53 55 42 20 22 |0,225),2|.GOSUB "|
|000002c0| 53 65 74 75 70 77 69 6e | 64 6f 77 22 0d 0d 4f 4e |Setupwin|dow"..ON|
|000002d0| 20 4d 45 4e 55 20 47 4f | 53 55 42 20 22 6d 65 6e | MENU GO|SUB "men|
|000002e0| 75 65 76 65 6e 74 22 0d | 4d 45 4e 55 20 4f 4e 0d |uevent".|MENU ON.|
|000002f0| 0d 22 6c 6f 6f 70 22 3a | 0d 47 4f 54 4f 20 22 6c |."loop":|.GOTO "l|
|00000300| 6f 6f 70 22 0d 0d 22 48 | 61 6e 64 6c 65 41 63 74 |oop".."H|andleAct|
|00000310| 22 3a 4d 45 4e 55 20 53 | 54 4f 50 3a 4d 4f 55 53 |":MENU S|TOP:MOUS|
|00000320| 45 20 53 54 4f 50 0d 20 | 20 20 20 41 43 54 3d 44 |E STOP. |   ACT=D|
|00000330| 49 41 4c 4f 47 28 30 29 | 0d 20 20 20 20 49 46 20 |IALOG(0)|.    IF |
|00000340| 41 43 54 3d 35 20 54 48 | 45 4e 20 47 4f 53 55 42 |ACT=5 TH|EN GOSUB|
|00000350| 20 22 53 65 74 75 70 77 | 69 6e 64 6f 77 22 0d 20 | "Setupw|indow". |
|00000360| 20 20 20 4d 45 4e 55 20 | 4f 4e 3a 20 4d 4f 55 53 |   MENU |ON: MOUS|
|00000370| 45 20 4f 4e 0d 52 45 54 | 55 52 4e 0d 0d 22 6d 65 |E ON.RET|URN.."me|
|00000380| 6e 75 65 76 65 6e 74 22 | 3a 0d 20 20 20 20 6d 65 |nuevent"|:.    me|
|00000390| 6e 75 6e 75 6d 62 65 72 | 3d 4d 45 4e 55 28 30 29 |nunumber|=MENU(0)|
|000003a0| 0d 20 20 20 20 6d 65 6e | 75 69 74 65 6d 3d 4d 45 |.    men|uitem=ME|
|000003b0| 4e 55 28 31 29 3a 4d 45 | 4e 55 0d 20 20 20 20 4f |NU(1):ME|NU.    O|
|000003c0| 4e 20 6d 65 6e 75 6e 75 | 6d 62 65 72 20 47 4f 53 |N menunu|mber GOS|
|000003d0| 55 42 20 22 6d 65 6e 75 | 31 22 2c 22 6d 65 6e 75 |UB "menu|1","menu|
|000003e0| 32 22 2c 22 6d 65 6e 75 | 33 22 0d 20 20 20 20 52 |2","menu|3".    R|
|000003f0| 45 54 55 52 4e 0d 0d 22 | 6d 65 6e 75 31 22 3a 0d |ETURN.."|menu1":.|
|00000400| 20 20 20 20 49 46 20 6d | 65 6e 75 69 74 65 6d 3d |    IF m|enuitem=|
|00000410| 31 20 54 48 45 4e 20 22 | 51 75 69 74 22 0d 20 20 |1 THEN "|Quit".  |
|00000420| 20 20 52 45 54 55 52 4e | 0d 20 20 20 20 0d 22 6d |  RETURN|.    ."m|
|00000430| 65 6e 75 32 22 3a 0d 27 | 20 54 68 69 73 20 69 73 |enu2":.'| This is|
|00000440| 20 74 68 65 20 45 64 69 | 74 20 6d 65 6e 75 0d 27 | the Edi|t menu.'|
|00000450| 20 75 73 65 20 69 74 20 | 66 6f 72 20 44 41 27 73 | use it |for DA's|
|00000460| 20 6f 6e 6c 79 0d 7a 20 | 3d 20 46 4e 20 53 59 53 | only.z |= FN SYS|
|00000470| 54 45 4d 45 44 49 54 28 | 6d 65 6e 75 69 74 65 6d |TEMEDIT(|menuitem|
|00000480| 2b 31 29 0d 52 45 54 55 | 52 4e 0d 0d 22 6d 65 6e |+1).RETU|RN.."men|
|00000490| 75 33 22 3a 0d 4c 4f 43 | 41 54 45 20 33 2c 31 0d |u3":.LOC|ATE 3,1.|
|000004a0| 50 52 49 4e 54 22 59 6f | 75 20 68 61 76 65 20 73 |PRINT"Yo|u have s|
|000004b0| 65 6c 65 63 74 65 64 20 | 6d 65 6e 75 20 69 74 65 |elected |menu ite|
|000004c0| 6d 22 3b 6d 65 6e 75 69 | 74 65 6d 0d 52 45 54 55 |m";menui|tem.RETU|
|000004d0| 52 4e 0d 0d 22 53 65 74 | 75 70 77 69 6e 64 6f 77 |RN.."Set|upwindow|
|000004e0| 22 3a 0d 43 4c 53 0d 54 | 45 58 54 20 32 2c 31 32 |":.CLS.T|EXT 2,12|
|000004f0| 2c 31 2c 30 3a 27 20 54 | 45 58 54 5b 66 6f 6e 74 |,1,0:' T|EXT[font|
|00000500| 5d 5b 2c 5b 73 69 7a 65 | 5d 2c 5b 66 61 63 65 5d |][,[size|],[face]|
|00000510| 2c 5b 6d 6f 64 65 5d 5d | 0d 50 52 49 4e 54 20 22 |,[mode]]|.PRINT "|
|00000520| 4d 61 63 54 75 74 6f 72 | 20 73 68 6f 77 73 20 79 |MacTutor| shows y|
|00000530| 6f 75 20 68 6f 77 20 69 | 74 20 77 6f 72 6b 73 21 |ou how i|t works!|
|00000540| 22 0d 54 45 58 54 20 32 | 2c 31 32 2c 30 2c 30 0d |".TEXT 2|,12,0,0.|
|00000550| 4c 4f 43 41 54 45 20 35 | 2c 31 3a 50 52 49 4e 54 |LOCATE 5|,1:PRINT|
|00000560| 22 5a 42 41 53 49 43 20 | 56 65 72 73 69 6f 6e 20 |"ZBASIC |Version |
|00000570| 33 2e 30 31 20 64 65 6d | 6f 22 0d 41 63 74 69 76 |3.01 dem|o".Activ|
|00000580| 69 74 79 3d 30 0d 52 45 | 54 55 52 4e 0d 0d 22 51 |ity=0.RE|TURN.."Q|
|00000590| 75 69 74 22 3a 0d 20 20 | 20 20 4d 45 4e 55 20 52 |uit":.  |  MENU R|
|000005a0| 45 53 45 54 0d 20 20 20 | 20 57 49 4e 44 4f 57 20 |ESET.   | WINDOW |
|000005b0| 43 4c 4f 53 45 20 31 0d | 20 20 20 20 45 4e 44 0d |CLOSE 1.|    END.|
|000005c0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000610| 2f 0f a8 b8 50 4f 60 00 | fe 6c 00 00 04 f4 60 0a |/...PO`.|.l....`.|
|00000620| 00 00 43 44 45 46 00 01 | 00 02 4e 56 ff e2 48 e7 |..CDEF..|..NV..H.|
|00000630| 0a 5a 20 44 45 4d 4f 2e | 73 72 63 4d 02 00 00 00 |.Z DEMO.|srcM....|
|00000640| 54 45 58 54 45 44 49 54 | 01 00 00 00 00 00 00 00 |TEXTEDIT|........|
|00000650| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 00 00 00 |..TEXTED|IT......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 9b 23 1c 3c 00 00 | 05 41 00 00 01 5c 80 81 |...#.<..|.A...\..|
|00000680| 80 c1 80 a1 8f 91 88 09 | 88 05 88 03 88 05 88 09 |........|........|
|00000690| 8f 91 80 a1 80 c1 80 81 | 80 01 ff ff ff ff 80 81 |........|........|
|000006a0| 80 c1 80 e1 8f f1 8f f9 | 8f fd 8f ff 8f fd 8f f9 |........|........|
|000006b0| 8f f1 80 e1 80 c1 80 81 | 80 01 ff ff ff ff 81 01 |........|........|
|000006c0| 83 01 85 01 89 f1 90 11 | a0 11 c0 11 a0 11 90 11 |........|........|
|000006d0| 89 f1 85 01 83 01 81 01 | 80 01 ff ff ff ff 81 01 |........|........|
|000006e0| 83 01 87 01 8f f1 9f f1 | bf f1 ff f1 bf f1 9f f1 |........|........|
|000006f0| 8f f1 87 01 83 01 81 01 | 80 01 ff ff ff ff 80 01 |........|........|
|00000700| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00000710| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000720| 00 16 00 00 00 46 00 00 | cc 24 02 94 00 00 00 1c |.....F..|.$......|
|00000730| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000740| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 6d e0 |........|......m.|
|00000750| 03 ec ff ff 00 00 00 0e | 00 01 6f 40 00 00 00 00 |........|..o@....|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+